home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example14_1.AMOS / example14_1.amosSourceCode
AMOS Source Code  |  1992-03-06  |  1KB  |  70 lines
  1. '
  2. '====================
  3. Rem example 14_1.Amos
  4. '====================
  5. '
  6. Rem playing samples
  7.  
  8.  
  9. Rem load in a previously created sample bank 
  10. Rem automatically loaded into bank 5 the default bank for samples. 
  11. '----------------------------------------------------------------- 
  12. Load "ABGTA_DISK2:samples/samples.abk"
  13.  
  14.  
  15. Paper 0 : Cls 0
  16.  
  17.  
  18. Rem show what is happening 
  19. '------------------------- 
  20. Print "Playing Sample one"
  21.  
  22.  
  23. Rem play sample 1
  24. Sam Play 1
  25.  
  26.  
  27. Rem Wait for it to stop playing  
  28. '------------------------------
  29. Wait 100
  30.  
  31.  
  32. Rem and so on
  33. '------------
  34. Print "Playing Sample two"
  35. Sam Play 2
  36. Wait 100
  37. Print "Playing Sample three"
  38. Sam Play 3
  39. Wait 50
  40.  
  41.  
  42. Rem play this sample in a loop 
  43. '----------------------------- 
  44. Print "Playing Sample four looped, press a key."
  45.  
  46.  
  47. Rem turn looping on
  48. Sam Loop On 
  49.  
  50.  
  51. Rem play it
  52. '----------
  53. Sam Play 4
  54.  
  55.  
  56. Rem wait for user to press a key 
  57. '--------------------------------
  58. Clear Key : Wait Key 
  59.  
  60.  
  61. Rem turn looping off 
  62. '------------------- 
  63. Sam Loop Off 
  64.  
  65.  
  66. Rem yes it really is that simple!  
  67. Rem why not get some samples and make your own sample bank up and load that  
  68. Rem into this program? There are a few samples on disk 2 to use. 
  69. '------------------------------------------------------------- 
  70. Edit